home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d918.lha
/
MultiPlot
/
Rexx
/
Scripts
/
flipset.mpt
next >
Wrap
Text File
|
1993-10-04
|
879b
|
59 lines
/* This script swaps the X and Y values */
port= 'MULTIPLOT.01'
RESULT=''
RC=0
options results
if(~show('p',port)) then do
say "Please start Multiplot first."
exit 1
end
address value port
'QUERY'
if(rc ~=0) then do
say "QUERY command failed!"
exit 1
end
if(compare('PLOWIN',RESULT)<6) then do
'SAY Please select a PLOT WINDOW first'
exit 1
end
'PEEK 1 NOVALS'
if(rc ~=0) then do
'SAY Please select a Data Set first'
exit 1
end
/* Collect values from set */
'PEEK 1 YVALS'
tempy=YVALS
'PEEK 1 XVALS'
tempx=XVALS
'PEEK 1 EVALS'
tempe=EVALS
'PEEK 1 EDWN'
tempedwn=EDWN
'PEEK 1 XEVALS'
tempxe=XEVALS
'PEEK 1 XEDWN'
tempxedwn=XEDWN
/* Rotate values */
XVALS=tempy
YVALS=tempx
EVALS=tempxe
XEVALS=tempe
EDWN=tempxedwn
XEDWN=tempedwn
/* Replace values in set */
'POKE 1 XVALS'
'POKE 1 YVALS'
'POKE 1 EVALS'
'POKE 1 EDWN'
'POKE 1 XEVALS'
'POKE 1 XEDWN'
'FULLPLOT'